home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / apcp.arc / A818A.CMD < prev    next >
Encoding:
Text File  |  1987-01-01  |  10.3 KB  |  404 lines
  1.      goto menu
  2.  
  3. dial:
  4.      isfile s8
  5.      if success
  6.           return
  7.      else
  8.      endif
  9.      clear
  10.      message "│ 818 │"
  11.      locate 0,8
  12.      message s8
  13.      locate 0,17
  14.      message "│ Glendale, CA                │"
  15.      locate 0,49
  16.      message s6
  17.      locate 0,77
  18.      message "│"
  19.      locate 2,0
  20.      transmit "I!"
  21.      pause 1
  22.      transmit "ATZ!"
  23.      waitfor "OK"
  24.      transmit "^E!"
  25.      waitfor "READY"
  26.      transmit "D"
  27.      transmit S8
  28.      transmit "!"
  29.      rget s9
  30.      rget s9 80 40
  31.      rget s9 40 40
  32.      rget s9 40 40
  33.  
  34. mess:
  35.      find s9 "BUSY"
  36.      if found
  37.           assign s7 "M"
  38.           return
  39.      else
  40.      endif
  41.      find s9 "ANSWER TONE"
  42.      if found
  43.           set parity none
  44.           set databits 8
  45.           clear
  46.           log open s8
  47.           alarm 2
  48.           exit
  49.      else
  50.      endif
  51.      find s9 "RINGING"
  52.      if found
  53.           rget s9
  54.           find s9 "RINGING"
  55.           if not found
  56.                goto mess
  57.           else
  58.                log open s8
  59.                message "NO ANSWER - STILL RINGING"
  60.                log close
  61.                transmit "^C^D^C"
  62.           endif
  63.      else
  64.      endif
  65. return
  66.  
  67. menu:
  68.      assign s7 " "
  69.      log close
  70.      clear
  71.      message "╔════════════════════════════════════════════════════════════════════════════╗"
  72.      message "║ A- Fido #331 MSFIDO ....... 250-8085  V- ........................ ...-.... ║"
  73.      message "║ B- NET-WORKS Magnetic Fant  388-5198  W- ........................ ...-.... ║"
  74.      message "║ C- MMMMMM ................. 390-3239  X- ........................ ...-.... ║"
  75.      message "║ D- BBS B.R. ............... 394-5950  Y- ........................ ...-.... ║"
  76.      message "║ E- RTPM ................... 453-2470  Z- ........................ ...-.... ║"
  77.      message "║ F- ABBS Pacific Palisades . 459-6400  0- ........................ ...-.... ║"
  78.      message "║ G- RBBS IBM PC Santa Monica 459-6480  1- ........................ ...-.... ║"
  79.      message "║ H- The Serial Tree ........ 459-7231  2- ........................ ...-.... ║"
  80.      message "║ I- The Interface .......... 477-4605  3- ........................ ...-.... ║"
  81.      message "║ J- RBBS IBM PC L.A......... 739-6362  4- ........................ ...-.... ║"
  82.      message "║ K- BBS IBM Comp. Res. Ctr . 828-1331  5- ........................ ...-.... ║"
  83.      message "║ L- NET-WORKS Computer World 859-0894  6- ........................ ...-.... ║"
  84.      message "║ M- Thieve's Hideout ....... 362-2292  7- ........................ ...-.... ║"
  85.      message "║ N- FOG #19 ................ 362-3690  8- ........................ ...-.... ║"
  86.      message "║ O- Oracle N. Hollywood .... 509-0897  9- ........................ ...-.... ║"
  87.      message "║ P- NET-WORKS Softworx ..... 990-4767  @- ........................ ...-.... ║"
  88.      message "║ Q- ........................ ...-....  #- ........................ ...-.... ║"
  89.      message "║ R- ........................ ...-....  $- ........................ ...-.... ║"
  90.      message "║ S- ........................ ...-....  %- ........................ ...-.... ║"
  91.      message "║ T- ........................ ...-....  &- ........................ ...-.... ║"
  92.      message "║ U- ........................ ...-....  *- ........................ ...-.... ║"
  93.      message "╚════════════════════════════════════════════════════════════════════════════╝"
  94.      locate 23,2
  95.      get s0
  96.  
  97. top:
  98.      find s0 "A"
  99.      in found
  100.           assign s8 "250-8085"
  101.           assign s6 "Fido #331 MS Fido          "
  102.           gosub dial
  103.      else
  104.      endif
  105.      find s0 "B"
  106.      in found
  107.           assign s8 "388-5198"
  108.           assign s6 "NET-WORKS Magnetic Fantasie"
  109.           gosub dial
  110.      else
  111.      endif
  112.      find s0 "C"
  113.      in found
  114.           assign s8 "390-3239"
  115.           assign s6 "MMMMMM                     "
  116.           gosub dial
  117.      else
  118.      endif
  119.      find s0 "D"
  120.      in found
  121.           assign s8 "394-5950"
  122.           assign s6 "BBS B.R.                   "
  123.           gosub dial
  124.      else
  125.      endif
  126.      find s0 "E"
  127.      in found
  128.           assign s8 "453-2470"
  129.           assign s6 "RTPM                       "
  130.           gosub dial
  131.      else
  132.      endif
  133.      find s0 "F"
  134.      in found
  135.           assign s8 "459-6400"
  136.           assign s6 "ABBS Pacific Palisades     "
  137.           gosub dial
  138.      else
  139.      endif
  140.      find s0 "G"
  141.      in found
  142.           assign s8 "459-6480"
  143.           assign s6 "RBBS IBM PC Santa Monica   "
  144.           gosub dial
  145.      else
  146.      endif
  147.      find s0 "H"
  148.      in found
  149.           assign s8 "459-7231"
  150.           assign s6 "The Serial Tree            "
  151.           gosub dial
  152.      else
  153.      endif
  154.      find s0 "I"
  155.      in found
  156.           assign s8 "477-4605"
  157.           assign s6 "The Interface              "
  158.           gosub dial
  159.      else
  160.      endif
  161.      find s0 "J"
  162.      in found
  163.           assign s8 "739-6362"
  164.           assign s6 "RBBS IBM PC L.A.           "
  165.           gosub dial
  166.      else
  167.      endif
  168.      find s0 "K"
  169.      in found
  170.           assign s8 "828-1331"
  171.           assign s6 "IBM Computer Res. Ctr.     "
  172.           gosub dial
  173.      else
  174.      endif
  175.      find s0 "L"
  176.      in found
  177.           assign s8 "859-0894"
  178.           assign s6 "NET-WORKS Computer World   "
  179.           gosub dial
  180.      else
  181.      endif
  182.      find s0 "M"
  183.      in found
  184.           assign s8 "362-2292"
  185.           assign s6 "Thieve's World             "
  186.           gosub dial
  187.      else
  188.      endif
  189.      find s0 "N"
  190.      in found
  191.           assign s8 "362-3690"
  192.           assign s6 "FOG #19                    "
  193.           gosub dial
  194.      else
  195.      endif
  196.      find s0 "O"
  197.      in found
  198.           assign s8 "509-0897"
  199.           assign s6 "Oracle North Hollywood     "
  200.           gosub dial
  201.      else
  202.      endif
  203.      find s0 "P"
  204.      in found
  205.           assign s8 "990-4767"
  206.           assign s6 "NET-WORKS Softworx         "
  207.           gosub dial
  208.      else
  209.      endif
  210.      goto speedup                      ; Skip Empty Elements
  211.      find s0 "Q"
  212.      if found
  213.           assign s8 "   -    "
  214.           assign s6 "                           "
  215.           gosub dial
  216.      else
  217.      endif
  218.      find s0 "R"
  219.      if found
  220.           assign s8 "   -    "
  221.           assign s6 "                           "
  222.           gosub dial
  223.      else
  224.      endif
  225.      find s0 "S"
  226.      if found
  227.           assign s8 "   -    "
  228.           assign s6 "                           "
  229.           gosub dial
  230.      else
  231.      endif
  232.      find s0 "T"
  233.      if found
  234.           assign s8 "   -    "
  235.           assign s6 "                           "
  236.           gosub dial
  237.      else
  238.      endif
  239.      find s0 "U"
  240.      if found
  241.           assign s8 "   -    "
  242.           assign s6 "                           "
  243.           gosub dial
  244.      else
  245.      endif
  246.      find s0 "V"
  247.      if found
  248.           assign s8 "   -    "
  249.           assign s6 "                           "
  250.           gosub dial
  251.      else
  252.      endif
  253.      find s0 "W"
  254.      if found
  255.           assign s8 "   -    "
  256.           assign s6 "                           "
  257.           gosub dial
  258.      else
  259.      endif
  260.      find s0 "X"
  261.      if found
  262.           assign s8 "   -    "
  263.           assign s6 "                           "
  264.           gosub dial
  265.      else
  266.      endif
  267.      find s0 "Y"
  268.      if found
  269.           assign s8 "   -    "
  270.           assign s6 "                           "
  271.           gosub dial
  272.      else
  273.      endif
  274.      find s0 "Z"
  275.      if found
  276.           assign s8 "   -    "
  277.           assign s6 "                           "
  278.           gosub dial
  279.      else
  280.      endif
  281.      find s0 "0"
  282.      if found
  283.           assign s8 "   -    "
  284.           assign s6 "                           "
  285.           gosub dial
  286.      else
  287.      endif
  288.      find s0 "1"
  289.      if found
  290.           assign s8 "   -    "
  291.           assign s6 "                           "
  292.           gosub dial
  293.      else
  294.      endif
  295.      find s0 "2"
  296.      if found
  297.           assign s8 "   -    "
  298.           assign s6 "                           "
  299.           gosub dial
  300.      else
  301.      endif
  302.      find s0 "3"
  303.      if found
  304.           assign s8 "   -    "
  305.           assign s6 "                           "
  306.           gosub dial
  307.      else
  308.      endif
  309.      find s0 "4"
  310.      if found
  311.           assign s8 "   -    "
  312.           assign s6 "                           "
  313.           gosub dial
  314.      else
  315.      endif
  316.      find s0 "5"
  317.      if found
  318.           assign s8 "   -    "
  319.           assign s6 "                           "
  320.           gosub dial
  321.      else
  322.      endif
  323.      find s0 "6"
  324.      if found
  325.           assign s8 "   -    "
  326.           assign s6 "                           "
  327.           gosub dial
  328.      else
  329.      endif
  330.      find s0 "7"
  331.      if found
  332.           assign s8 "   -    "
  333.           assign s6 "                           "
  334.           gosub dial
  335.      else
  336.      endif
  337.      find s0 "8"
  338.      if found
  339.           assign s8 "   -    "
  340.           assign s6 "                           "
  341.           gosub dial
  342.      else
  343.      endif
  344.      find s0 "9"
  345.      if found
  346.           assign s8 "   -    "
  347.           assign s6 "                           "
  348.           gosub dial
  349.      else
  350.      endif
  351.      find s0 "@"
  352.      if found
  353.           assign s8 "   -    "
  354.           assign s6 "                           "
  355.           gosub dial
  356.      else
  357.      endif
  358.      find s0 "#"
  359.      if found
  360.           assign s8 "   -    "
  361.           assign s6 "                           "
  362.           gosub dial
  363.      else
  364.      endif
  365.      find s0 "$"
  366.      if found
  367.           assign s8 "   -    "
  368.           assign s6 "                           "
  369.           gosub dial
  370.      else
  371.      endif
  372.      find s0 "%"
  373.      if found
  374.           assign s8 "   -    "
  375.           assign s6 "                           "
  376.           gosub dial
  377.      else
  378.      endif
  379.      find s0 "&"
  380.      if found
  381.           assign s8 "   -    "
  382.           assign s6 "                           "
  383.           gosub dial
  384.      else
  385.      endif
  386.      find s0 "*"
  387.      if found
  388.           assign s8 "   -    "
  389.           assign s6 "                           "
  390.           gosub dial
  391.      else
  392.      endif
  393.  
  394. speedup:
  395.      find s7 "M"
  396.      if found
  397.           assign s7 " "
  398.           goto top
  399.      else
  400.      endif
  401.      message "All Numbers Connected - Or Did Not Answer"
  402.      alarm 2
  403.      exit
  404.